PC Format 6 (5.25")

home *** CD-ROM | disk | FTP | other *** search

/ PC Format 6 (5.25") / PC Format - Issue 6 March 1992 - Disk 2.ima / PCF.BAT < prev

Wrap

DOS Batch File | 1994-08-29 | 4.6 KB | 309 lines

echo off cls disp menu\pcfiss6 1 :start nocurs disp menu\pcfiss6 2 getkey xuzcp if errorlevel 5 goto parents if errorlevel 4 goto crystal if errorlevel 3 goto zip if errorlevel 2 goto utils if errorlevel 1 goto quit rem ****************************Crystal Installation************************ :crystal disp menu\crysop 2 getkey rum if errorlevel 3 goto start if errorlevel 2 goto unarch if errorlevel 1 goto unrun :unrun disp menu\unrun 2 getkey abe if errorlevel 3 goto crystal if errorlevel 2 goto unrunb if errorlevel 1 goto unruna rem ****************Unarchive and run program from a: ******************** :unruna disp menu\unruna 2 getkey bcm if errorlevel 3 goto unrun if errorlevel 2 goto uncopyc if errorlevel 1 goto uncopyb :uncopyc cls echo Please wait... md c:\crystal copy crystal\crys.exe c:\crystal c: cd crystal crys cc1 a: goto start :uncopyb cls echo Please wait... copy crystal\crys.exe b: b: crys cc1 a: goto start rem **********************Unarchive and run from b:************************ :unrunb disp menu\unrunb 2 getkey acm if errorlevel 3 goto unrun if errorlevel 2 goto uncopyci if errorlevel 1 goto uncopyai :uncopyci cls echo Please wait... md c:\crystal copy crystal\crys.exe c:\crystal c: cd crystal crys cc1 b: goto start :uncopyai cls echo Please wait... copy crystal\crys.exe a: a: crys cc1 b: goto start :unarch disp menu\unarch 2 getkey abe if errorlevel 3 goto crystal if errorlevel 2 goto unarchb if errorlevel 1 goto unarcha rem ***********************Unarchive program from a:********************* :unarcha disp menu\unarcha 2 getkey bcm if errorlevel 3 goto unarch if errorlevel 2 goto uncpyc if errorlevel 1 goto uncpyb :uncpyc cls echo Please wait... md c:\crystal copy crystal\crys.exe c:\crystal c: cd crystal crys a: goto start :uncpyb cls echo Please wait... copy crystal\crys.exe b: b: crys a: goto start rem ****************************Unarchive from b:************************* :unarchb disp menu\unarchb 2 getkey acm if errorlevel 3 goto unarch if errorlevel 2 goto uncpyci if errorlevel 1 goto uncpyai :uncpyci cls echo Please wait... md c:\crystal copy crystal\crys.exe c:\crystal c: cd crystal crys b: goto start :uncpyai cls echo Please wait... copy crystal\crys.exe a: a: crys b: goto start rem *****************************PKUNZIP & PKZIP**************************** :zip disp menu\pkzip 2 getkey mcba if errorlevel 4 goto ainst if errorlevel 3 goto binst if errorlevel 2 goto cinst if errorlevel 1 goto start rem ***************************Installing to C:***************************** :cinst cls echo Please wait... md c:\utils copy zip\*.* c:\utils goto start rem ***************************Installing to B:***************************** :binst cls echo Please wait... copy zip\*.* b: goto start rem ***************************Installing to A:***************************** :ainst cls Please wait... copy zip\*.* a: goto start rem **********************************Utils********************************* :utils disp menu\utils 2 getkey mcrs if errorlevel 4 goto sec if errorlevel 3 goto ram if errorlevel 2 goto sim if errorlevel 1 goto start rem *******************************Secret demo****************************** :sec disp menu\sec1 2 getkey qn if errorlevel 2 goto sec1 if errorlevel 1 goto utils :sec1 cls cd secret echo on dir pause echo off cd.. disp menu\sec2 2 getkey qn if errorlevel 2 goto sec2 if errorlevel 1 goto utils :sec2 cls cd secret echo on cdsecret dir pause echo off cd.. disp menu\sec3 2 getkey c if errorlevel 1 goto utils rem ********************************SimCGA********************************** :sim cls cd simcga simcga cd.. echo Your monitor will now emulate CGA pause goto utils rem ********************************RamFree********************************* :ram cls cd ramfree ramfree cd.. pause goto utils rem ********************************Parents********************************* :parents disp menu\par 2 getkey mcba if errorlevel 4 goto cpya if errorlevel 3 goto cpyb if errorlevel 2 goto cpyc if errorlevel 1 goto start :cpya cls copy \parents\*.* a: goto start :cpyb cls copy \parents\*.* b: goto start :cpyc cls md c:\parents copy \parents\*.* c:\parents goto start rem *******************************Quitting********************************* :quit cls echo Thankyou for using the PC Format coverdisk. cd.. pause